# TODO: Datos de prueba reales
# 
# Author: Leonardo
###############################################################################



datos_de_prueba<-c(24.5,
		28.1,
		30.6,
		35.4,
		39.7,
		46.8,
		49.7,
		59.4,
		67.2,
		75.0,
		84.1,
		87.3,
		94.2,
		97.6,
		104.7,
		107.6,
		108.1,
		114.0,
		115.8,
		119.9
)

datos_de_prueba<-matrix(datos_de_prueba,ncol=1)

tabla<-TablaSimulacion(datos_de_prueba,0.1,100)

plot(tabla,xlab="tamanio aleatorio de cantidad por imputar",ylab="media de los datos imputados")
curve(x/x+mean(datos_de_prueba)-1,add=TRUE)

#histograma de los datos reales
fibrado<-FibradoTangente(datos_de_prueba,0.1,7)
datosCorregidos<-fibrado$DatosCorregidos
datosCorregidos<-matrix(datosCorregidos,ncol=1)
hist(datos_de_prueba,xlab="datos",ylab="frecuencia absoluta",main="Comparar promedios de datos reales versus datos corregidos")
points(mean(datos_de_prueba),0,col="red")
points(mean(datosCorregidos),0,col="black")
points(mean(fibrado$imputados),0,col="green")
